  function chfile(dpath,fname); 
% function chfile(dpath,fname); 
% Check if the function fname in path dpath exists
% AJ 1/31/04
rd=cd; 
cd(dpath); 
tes=fopen(fname,'r');
cd(rd); 
if tes > 0;     
    fprintf('%-70s\n','   ');
    fprintf('%-70s\n','WARNING !!!!!!!!');
    fprintf('%-70s\n',['Filename ',fname,' already exists']); 
    quer('c'); 
end 
